home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / patches / patch2amitcp_4.3 / patch / amitcp / bin / stopnet < prev    next >
Encoding:
AmigaDOS Script File  |  1996-03-30  |  466 b   |  28 lines
  1. .KEY FLUSH/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: stopnet,v 3.1 1996/03/20 17:08:39 too Exp $
  6.  
  7. FailAt 21
  8. Version bsdsocket.library >nil:
  9. If NOT Warn 
  10.  
  11.   If Exists AmiTCP:db/User-Stopnet
  12.     Execute AmiTCP:db/User-Stopnet
  13.   EndIf
  14.  
  15.   Rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  16.  
  17.   If {FLUSH}
  18.     Wait 3 secs
  19.     If `rx "Say Show(ports, AMITCP)"` EQ 0
  20.       Avail >NIL: FLUSH
  21.     Else
  22.       Echo Memory NOT flushed!
  23.     EndIf
  24.   EndIf
  25. Else
  26.   Echo AmiTCP/IP is not running.
  27. EndIf
  28.